2 POKE55,0:POKE56,56:CLR
3 DV=PEEK(186):IFDV<8THENDV=8
4 POKE53280,0:POKE53281,0:PRINT"[147][158]        LOADING STUFF . . ."
5 SYS57812"MT.DEMO",DV,1:POKE780,0:POKE781,0:POKE782,204:SYS65493
6 SYS57812"DEMO FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
7 MT=49152
8 DIMI,J,J%,K,N,NC,TE,A$,BS,CH$,D,EA,G7,SA,SB,SV,TB,X,Y
9 PRINT"[147][146]":POKE53272,31
10 SYSMT+3,0,39,0,24,0,15
14 DIMS(50),D(50):FORI=1TO50:S(I)=I:NEXT:    NC=50
16 GOTO400
18 REM=======BRANCHER=========
20 POKE198,0:GOSUB62
21 FORI=1TOLEN(CH$):IFA$=MID$(CH$,I,1)THENRETURN
22 NEXT:GOTO20
55 REM==========ANY KEY-GET A$=========
58 X=10:Y=24:GOSUB66:PRINT" PLEASE PRESS A KEY  ";
60 REM============GET A$===========
62 GETA$:IFA$=""THEN 70
63 RETURN
64 REM=======PRINT AT=============
66 POKE783,PEEK(783)AND254:POKE782,X:POKE781,Y:SYS65520:RETURN
68 REM=======SHUFFLE WHILE YOU PLAY===
70 IFJJ=NC-1THENJJ=0
71 JJ=JJ+1:J%=JJ+INT(RND(1)*(NC+1-JJ)):TEMP=S(JJ):S(JJ)=S(J%):S(J%)=TEMP:GOTO62
98 REM=========WORD LIST============
100 DATAABLE,AUNT,BAND,BEAD,BOLD,BINS,BUNT,BRAD,CARD,CLUE,DART,DUMP
112 DATADRAB,DRUG,DRIP,EASE,EARS,FINE,FORM,FLAW,FOUR,GIVE,GOAL,GULP
114 DATAHOLE,HELP,HUNT,HARE,IOTA,IONS,JOLT,JERK,KEEP,KICK,LOVE,LOAN
116 DATALEAP,MAKE,NEXT,NEAT,PARE,OPEN,PEAL,RATE,RUNT,SALE,SEAL,STUN
118 DATATEAR,TART
398 REM=======PRINT SCREEN======
400 SYSMT+3,6,33,1,6,160,5:POKE646,5
404 X=8:Y=2:GOSUB66:PRINT"[205]AURICE'S [209]UICK & [196]IRTY
408 Y[178]Y[170]1:[141]66:[153]" STR$EMO OF CHR$ARBAGE FREE,
412 Y=Y+1:GOSUB66:PRINT"  [201]NSTANT [210]EPLAYING,
416 Y[178]Y[170]1:[141]66:[153]"(null)ON-REPEATING (null)ORD CHR$AMES
420 SYSMT+6,208:SYSMT+3,3,36,9,22,32,5
422 REM======PROGRAM STARTS==========
424 Y=11:X=08:GOSUB66:PRINT"[158][195]HECK MEMORY USE . . ."
430 GOSUB3000:SYSMT+9,208:SYSMT+3,3,36,9,22,32,5:SYSMT+6,208
432 DIM W$(50)
434 Y=11:X=08:GOSUB66:PRINT"[146][196]IM A STRING ARRAY . . ."
436 Y=Y+2:GOSUB66:PRINT" 432 [196][201][205][160][215]$(50)
438 [141]3000:[158]MT[170]9,208:[158]MT[170]3,3,36,9,22,32,5
440 [143]======READ STRINGS==========
442 [129]I[178]1[164]50:[135]W$(I):[130]
446 Y[178]11:X[178]10:[141]66:[153]"WAIT(null)EAD STRINGS . . ."
450 X[178]4:  Y[178]Y[170]2:[141]66:[153]" 442 ASC(null)(null)RIGHT$=1(null)(null)50:(null)VALATNSTR$(null)$(RIGHT$):(null)VAL(null)(null)
454 GOSUB3000:SYSMT+9,208
458 SYSMT+3,0,39,0,24,0,5:SYSMT+3,3,36,1,12,32,5
459 REM======THE GAME BEGINS======
460 K=1:N=0:G7=0:FORI=1TO50:D(I)=S(I):NEXT
464 N=N+1:X=5+G7*6:Y=1+N:GOSUB66:PRINT"[146]"W$(D(K));:K=K+1:IFN=10THEN470
468 GOTO464
469 REM======THE GAME ENDS=======
470 SYSMT+6,216
472 GOSUB2000:G7=G7+1:N=0
476 ONIGOTO480,484,40000
478 REM=======NEW GAME==========
480 SYSMT+9,216:  IFG7=5THEN458
482 SYSMT+9,216:GOTO464
483 REM======MEMORY CHECK=======
484 SYSMT+9,208:GOSUB3000:SYSMT+9,216:G7=G7-1:GOTO472
1998 REM====MENU SUBROUTINE=====
2000 SYSMT+3,18,36,18,22,32,0
2004 X=19:Y=19:GOSUB66:PRINT"[146][158]1. [193]NOTHER GAME"
2008 Y=Y+1:GOSUB66:PRINT"2. [195]HECK MEMORY
2016 Y[178]Y[170]1:[141]66:[153]"3. (null)O (null)(null)ATNSTR$(null)(null)ATN(null)
2020 CH$="123":A$="": GOSUB20:RETURN
2998 REM====MEMORY USAGE SUBROUTINE===
3000 POKE646,4
3100 SB=PEEK(43)+256*PEEK(44)
3110 SV=PEEK(45)+256*PEEK(46)
3120 SA=PEEK(47)+256*PEEK(48)
3130 EA=PEEK(49)+256*PEEK(50)
3140 BS=PEEK(51)+256*PEEK(52)
3160 TB=PEEK(55)+256*PEEK(56)
3164 Y=17:X=5:GOSUB66:PRINT"[194]YTES USED BY CODE";
3166 PRINTTAB(35-LEN(STR$(SV-SB)))SV-SB
3168 Y=Y+1:GOSUB66:PRINT"[194]YTES USED BY VARIABLES";
3172 PRINTTAB(35-LEN(STR$(SA-SV)))SA-SV
3174 Y=Y+1:GOSUB66:PRINT"[194]YTES USED BY ARRAYS";
3178 PRINTTAB(35-LEN(STR$(EA-SA)))EA-SA
3182 Y=Y+1:GOSUB66:PRINT"[194]YTES USED BY STRINGS";
3186 PRINTTAB(35-LEN(STR$(TB-BS)))TB-BS
3190 Y=Y+1:GOSUB66:PRINT"[194]YTES FREE";:PRINTTAB(35-LEN(STR$(BS-EA)))BS-EA
3200 GOSUB58:RETURN
9998 REM=====RESAVE==========
10000 OPEN15,8,15,"S0:WORDGAME SHELL":CLOSE15:SAVE"WORDGAME SHELL",8:END
39998 REM=====RECONECT=======
40000 PRINT"[147]":POKE53281,0:POKE53280,0:POKE53272,21
40005 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:HELLO CONNECT=HELLO CONNECT"
40015 INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147][159]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,DV:END
40030 PRINT"[147][144]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END